home *** CD-ROM | disk | FTP | other *** search
/ Best of Shareware / Best of PC Windows Shareware 1.0 - Wayzata Technology (7111) (1993).iso / mac / DOS / TELECOMM / GAPMAIL / GAPMAIL.RS next >
Text File  |  1992-03-05  |  1KB  |  48 lines
  1.  
  2. ;
  3. ;GAPMAIL.RS
  4. ;
  5. ;Generic script to handle mail transfers on GAP bbs systems
  6. ;
  7. ;Usage is fairly straight forward and simple...allow ROBO to
  8. ;handle your normal log in procedure, then call this batch file
  9. ;to do the mail run
  10. ;
  11. ;Start-up when it dumps you to main command
  12. ;
  13. SEND "|"
  14. ;
  15. ;Let's see if we have a reply file for the bbs...
  16. ;
  17. IF EXIST "%REPDIR%%ID%.REP" GOSUB SEND_REP
  18. ;
  19. ;Let's GET OUR MAIL!
  20. ;
  21. WAITFOR "Main Board Command : "
  22. SEND "QWK|"
  23. WHEN "continue" SEND "Y|"
  24. WHEN "Member of (Y/n)" SEND "Y|"
  25. WAITFOR "QWK Packet Now"
  26. DOWNLOAD "%QWKDIR%" USING "ZMODEM"
  27. WAITFOR "Main Board Command : "
  28. goto endit
  29. ;
  30. ;Subroutine to send an existing reply file
  31. ;
  32. :send_rep
  33. MESSAGE "SENDING UP A REPLY!"
  34. ;Checking for and deleting any OLD file...
  35. IF EXIST "%REPDIR%%ID%.OLD" ERASE "%REPDIR%%ID%.OLD"
  36. WAITFOR "Main Board Command : "
  37. SEND "REP|"
  38. WHEN "continue" SEND "Y|"
  39. WHEN "(Y/n)" SEND "Y|"
  40. WAITFOR "è"
  41. UPLOAD "%REPDIR%%ID%.REP" USING "ZMODEM"
  42. RENAME "%REPDIR%%ID%.REP" to "%REPDIR%%ID%.OLD"
  43. RETURN
  44. ;
  45. :endit
  46. ;
  47. Exit 0
  48.